home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / Spider / DRAW18.ADA < prev    next >
Encoding:
Text File  |  1994-01-10  |  223 b   |  24 lines  |  [TEXT/Anon]
  1. WITH Spider; USE Spider;
  2. WITH Left;
  3. PROCEDURE Drawing18 IS
  4.  
  5. BEGIN                   -- Begin the drawing
  6. Reset;
  7. Turn;
  8. Turn;
  9. Step;
  10. Step;
  11. Turn;
  12. Red; 
  13. Step;
  14. Step;
  15. Step;
  16. Left;
  17. Step;
  18. Blue;
  19. Step;
  20. Step;
  21. Step;
  22. Quit;
  23. END Drawing18;
  24.